home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / c / sync / sun3.md / RCS / Sync_Unlock.s,v < prev   
Text File  |  1990-02-12  |  3KB  |  132 lines
  1. head     1.2;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ; strict;
  6. comment  @# @;
  7.  
  8.  
  9. 1.2
  10. date     90.02.12.02.53.02;  author rab;  state Exp;
  11. branches ;
  12. next     1.1;
  13.  
  14. 1.1
  15. date     88.06.19.14.34.19;  author ouster;  state Exp;
  16. branches ;
  17. next     ;
  18.  
  19.  
  20. desc
  21. @@
  22.  
  23.  
  24. 1.2
  25. log
  26. @Converted local labels to Gnu syntax.
  27. @
  28. text
  29. @|*
  30. |* syncAsm.s --
  31. |*
  32. |*    Source code for the Sync_Unlock library procedure.
  33. |*
  34. |* Copyright 1988 Regents of the University of California
  35. |* Permission to use, copy, modify, and distribute this
  36. |* software and its documentation for any purpose and without
  37. |* fee is hereby granted, provided that the above copyright
  38. |* notice appear in all copies.  The University of California
  39. |* makes no representations about the suitability of this
  40. |* software for any purpose.  It is provided "as is" without
  41. |* express or implied warranty.
  42. |*
  43.  
  44.     .data
  45.     .asciz "$Header: /sprite/src/lib/c/sync/sun3.md/RCS/Sync_Unlock.s,v 1.1 88/06/19 14:34:19 ouster Exp Locker: rab $ SPRITE (Berkeley)"
  46.     .even
  47.     .text
  48.  
  49.  
  50. /*
  51.  *----------------------------------------------------------------------------
  52.  *
  53.  * Sync_Unlock --
  54.  *
  55.  *      Release a lock.  This is called at the end of a critical
  56.  *      section of code to allow other processes to execute within the
  57.  *      critical section.  If any processes are waiting to acquire this
  58.  *      lock they are made runnable.  They will try to gain the lock
  59.  *      again the next time they run.
  60.  *
  61.  * Results:
  62.  *    None.
  63.  *
  64.  * Side effects:
  65.  *    The lock is cleared.  Processes waiting on the lock are made runnable.
  66.  *
  67.  * C equivalent:
  68.  *
  69.  *    void
  70.  *    Sync_Unlock(lockPtr)
  71.  *        Sync_Lock *lockPtr;
  72.  *    {
  73.  *        lockPtr->inUse = 0;
  74.  *        if (lockPtr->waiting) {
  75.  *        Sync_SlowBroadcast((int)lockPtr, &lockPtr->waiting);
  76.  *        }
  77.  *    }
  78.  *
  79.  *----------------------------------------------------------------------------
  80.  */
  81.  
  82.     .text
  83.     .globl _Sync_Unlock
  84. _Sync_Unlock:
  85.  
  86.     movl    sp@@(4), a0    | a0 = lockPtr
  87.     clrl    a0@@        | lockPtr->inUse = 0;
  88.  
  89.     /*
  90.      * The check on the waiting bit races with the assignment
  91.      * statement that clears it in Sync_SlowBroadcast. In the
  92.      * worst case we assume someone is waiting that is really
  93.      * just waking up because we've cleared the inUse bit.
  94.      * That results in a wasted call to Sync_SlowBroadcast.
  95.      */
  96.  
  97.     tstl    a0@@(4)        | if (lockPtr->waiting) {
  98.     jeq        1f        | Bail out if !lockPtr->waiting
  99.  
  100.     /*
  101.      * Note the broadcast semantics for Sync_SlowBroadcast.
  102.      * All processes waiting on the lock will be made runnable,
  103.      * however, all but one will sleep again inside Sync_SlowLock.
  104.      */
  105.  
  106.     movl    a0, d0
  107.     addql    #4, d0        | Get address of lockPtr->waiting.
  108.     movl    d0, sp@@-    | Push &lockPtr->waiting on the stack.
  109.     movl    a0, sp@@-    | Push lockPtr on the stack.
  110.     jbsr    _Sync_SlowBroadcast
  111.     addql    #8, sp        | Pop the stack.
  112.  
  113. 1:  rts
  114. @
  115.  
  116.  
  117. 1.1
  118. log
  119. @Initial revision
  120. @
  121. text
  122. @d17 1
  123. a17 1
  124.     .asciz "$Header: proto.s,v 1.2 88/03/11 08:39:36 ouster Exp $ SPRITE (Berkeley)"
  125. d70 1
  126. a70 1
  127.     jeq        1$        | Bail out if !lockPtr->waiting
  128. d85 1
  129. a85 1
  130. 1$: rts
  131. @
  132.